www.gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\manage\Admin_Ored_ass.asp
<!--#include file="../Include/conn.asp"--> <!--#include file="Admin_check.asp"--> <% title="课程类别" data="zhi_rui_g_CLss" url="Admin_Ored_ass.asp" %> <HTML> <HEAD> <TITLE><%=title%></TITLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="images/Admin_css.css" type=text/css rel=stylesheet> <script language="javascript" src="images/Admin.js"></script> <script language=javascript> function accessSina() { if (confirm("\请慎重此操作,一经操作此信息将无法恢复:\n\n·真的要执行此操作吗?")) { return true; } else { return false; } } </script> </head> <body> <table cellpadding="3" cellspacing="0" border="0" width="100%" align=center> <tr align="center" valign="bottom"><td height=25 background="images/th_bg.gif" class="topbg"><b><font color=ffffff><%=title%>管理</font></b></tr> <tr> <td height=23 bgcolor="#EBF2F9" class="tdbg"> <a href="<%=url%>?action=add">添加<%=title%></a> | <a href="<%=url%>">管理<%=title%></a> </td> </tr> </table> <br> <%if Request("action")="" then%> <% Set rs=Server.CreateObject("Adodb.RecordSet") sql="select * from "&data&" order by id asc" rs.Open sql,conn,1,3 i=1 if rs.eof and rs.bof then response.write "<div align=center><p><br><br><font color=red><--暂无任何信息--></font></b></br><p></div>" else%> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#EBF2F9"> <tr class="title"> <td width="10%" height="23" align="center"><span class="title2">排序号</span></td> <td width="10%" align="center"><span class="title2">类别ID</span></td> <td width="32%" align="center"><span class="title2">类别名称</span></td> <td width="23%" height="16" align="center"><span class="title2">管理操作</span></td> </tr> <%do while not rs.eof%> <script language="javascript" type="text/javascript"> <!-- function chk_class_<%=i%>(){ if (document.myform_<%=i%>.Cname.value=="") { alert("错误:<%=title%>名称不能为空!"); document.myform_<%=i%>.Cname.focus(); return false; } return true; } // --> </script> <form name="myform_<%=i%>" method="post" action="<%=url%>?action=upinfo" OnSubmit="return chk_class_<%=i%>()"> <tr align="center" class="tdbg"> <td height="25" valign="middle"><%=i%></td> <td align="center" valign="middle"><%=rs("id")%></td> <td valign="middle"><input name="Cname" type="text" class="textfield" id="Cname" value="<%=rs("Cname")%>" size="40" maxlength="60"></td> <td valign="middle"> <table width="60%" border="0" cellspacing="0" cellpadding="0"> <tr align="center"> <td width="48%"><input name="myid" type="hidden" id="myid" value="<%=rs("id")%>"> <input type="submit" name="Submit" value="修 改" class="button"></td> <td width="52%"><a href="<%=url%>?id=<%=rs("id")%>&action=delinfo" onClick="return accessSina()">删除</a></td> </tr> </table></td> </tr> </form> <% i=i+1 rs.movenext loop %> </table> <% end if rs.close set rs=nothing %> <%end if%> <%if Request("action")="add" then%> <% sql="select * from "&data&" order by id asc" set rs=server.CreateObject("ADODB.recordset") rs.open sql,conn,1,1 totalPut=rs.recordcount mynum=totalPut+1%> <script language="javascript" type="text/javascript"> <!-- function chk_class(){ if (document.myform.Cname.value=="") { alert("错误:<%=title%>名称不能为空!"); document.myform.Cname.focus(); return false; } return true; } // --> </script> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#EBF2F9"> <tr class="title"> <td width="10%" height="23" align="center"><span class="title2">排序号</span></td> <td width="10%" align="center"><span class="title2">类别ID</span></td> <td width="32%" align="center"><span class="title2">类别名称</span></td> <td width="23%" height="16" align="center"><span class="title2">管理操作</span></td> </tr> <form name="myform" method="post" action="<%=url%>?action=addinfo" OnSubmit="return chk_class()"> <tr align="center" class="tdbg"> <td height="25" valign="middle">--</td> <td align="center" valign="middle">--</td> <td valign="middle"><input name="Cname" type="text" class="textfield" id="Cname" size="40" ></td> <td valign="middle"> <input type="submit" name="Submit" value="添 加" class="button"> </td> </tr> </form> </table> <% rs.close set rs=nothing%> <%end if%> <%'添加信息 if Request("action")="addinfo" then set rs=server.CreateObject("adodb.Recordset") sql="select * from "&data&"" rs.open sql,conn,1,3 rs.addnew rs("Cname") =Request("Cname") rs.Update rs.Close set rs=nothing%> <script language=javascript> alert( "<%=title%>添加成功!" ); location.href = "<%=url%>" </script> <%end if%> <%'修改信息 if Request("action")="upinfo" then set rs=server.CreateObject("adodb.Recordset") sql="select * from "&data&" where id="&Request("myid")&"" rs.open sql,conn,1,3 rs("Cname") =Request("Cname") rs.Update rs.Close set rs=nothing%> <script language=javascript> alert( "<%=title%>修改成功!" ); location.href = "<%=url%>" </script> <%end if%> <%'删除信息 if Request("action")="delinfo" then conn.execute("delete from "&data&" where id="&Request("id")&"")%> <script language=javascript> alert( "<%=title%>删除操作成功!" ); location.href = "<%=url%>" </script> <%end if%> </body> </html>